Hệ thống quản lý bán hàng và hàng tồn kho trong c#

36.933 lượt xem;

frmCamera.vb
project /

1 Public Class frmCamera
2     Public CamMgr As TouchlessLib.TouchlessMgr
3     Private Sub WebcamImage_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
4         Try
5             Timer1.Enabled = False
6             CamMgr.CurrentCamera.Dispose()
7             CamMgr.Cameras.Item(cmbCamera.SelectedIndex).Dispose()
8             CamMgr.Dispose()
9         Catch ex As Exception
10
11         End Try
12     End Sub
13
14     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
15         CamMgr = New TouchlessLib.TouchlessMgr
16         TempFileNames2 = ""
17
18         For i As Integer = 0 To CamMgr.Cameras.Count - 1
19             cmbCamera.Items.Add(CamMgr.Cameras(i).ToString)
20         Next
21         If cmbCamera.Items.Count > 0 Then
22             cmbCamera.SelectedIndex = 0
23             Timer1.Enabled = True
24         Else
25             MsgBox("There are no Camera ...")
26             Me.Close()
27         End If
28
29     End Sub
30
31
32
33     Private Sub cmbCamera_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbCamera.SelectedIndexChanged
34         CamMgr.CurrentCamera = CamMgr.Cameras.ElementAt(cmbCamera.SelectedIndex)
35     End Sub
36
37     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
38         picFeed.Image = CamMgr.CurrentCamera.GetCurrentImage()
39     End Sub
40
41     Private Sub btnCapture_Click(sender As System.Object, e As System.EventArgs) Handles btnCapture.Click
42         picPreview.Image = CamMgr.CurrentCamera.GetCurrentImage()
43         btnSave.Enabled = True
44     End Sub
45
46     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
47         Dim sTempFileName As String = System.IO.Path.GetTempFileName()
48         TempFileNames2 = sTempFileName
49         Dim b As Bitmap = picPreview.Image
50         b.Save(sTempFileName, System.Drawing.Imaging.ImageFormat.Jpeg)
51         Timer1.Enabled = False
52         CamMgr.CurrentCamera.Dispose()
53         CamMgr.Cameras.Item(cmbCamera.SelectedIndex).Dispose()
54         CamMgr.Dispose()
55
56         Me.Close()
57     End Sub
58
59
60 End Class